perm filename FOO.PRF[W78,JMC] blob sn#341527 filedate 1978-03-17 generic text, type T, neo UTF8
*****ASSUME ∃z.(R(x,y,z)∧E(z,v,w));

1 ∃z.(R(x,y,z)∧E(z,v,w))  (1)

*****ASSUME R(x,y,z);

2 R(x,y,z)  (2)

*****∃E ↑↑ z1;

3 R(x,y,z1)∧E(z1,v,w)  (3)

*****∀E foo2 x,y,z,z1;

4 (R(x,y,z)∧R(x,y,z1))⊃z=z1  

*****TAUTEQ E(z,v,w) 2:4;

5 E(z,v,w)  (1 2)

*****⊃I 2⊃↑;

6 R(x,y,z)⊃E(z,v,w)  (1)

*****∀I ↑ z;

7 ∀z.(R(x,y,z)⊃E(z,v,w))  (1)

*****⊃I 1⊃↑;

8 ∃z.(R(x,y,z)∧E(z,v,w))⊃∀z.(R(x,y,z)⊃E(z,v,w))  

*****ASSUME ∀z.(R(x,y,z)⊃E(z,v,w));

9 ∀z.(R(x,y,z)⊃E(z,v,w))  (9)

*****∀E foo1 x,y;

10 ∃z.R(x,y,z)  

*****∃E ↑ z1;

11 R(x,y,z1)  (11)

*****∀E ↑↑↑ z1;

12 R(x,y,z1)⊃E(z1,v,w)  (9)

*****TAUT R(x,y,z1)∧E(z1,v,w) 11:12;

13 R(x,y,z1)∧E(z1,v,w)  (9 11)

*****∃I ↑ z1 ;

14 ∃z1.(R(x,y,z1)∧E(z1,v,w))  (9)

*****⊃I 9⊃↑;

15 ∀z.(R(x,y,z)⊃E(z,v,w))⊃∃z1.(R(x,y,z1)∧E(z1,v,w))  

*****TAUT ∀z.(R(x,y,z)⊃E(z,v,w))≡∃z1.(R(x,y,z1)∧E(z1,v,w)) 8,15;

16 ∀z.(R(x,y,z)⊃E(z,v,w))≡∃z1.(R(x,y,z1)∧E(z1,v,w))